fxy <- expression(2*x+1)

dd <- deriv(fxy,c("x"),func=TRUE)

dd(1)
